home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 1 / PC Actual CD 01.iso / share / dos / graficos / plydat14.arj / SINSURF.PI < prev    next >
Encoding:
Text File  |  1992-04-05  |  837 b   |  44 lines
  1. //
  2. // the value theta_offset is used in animations to make
  3. // the surface move
  4. define theta_offset radians(frame * 12)
  5.  
  6. // Set up the camera
  7. viewpoint {
  8.    from <0,5,-5>
  9.    at <0,0,0>
  10.    up <0,1,0>
  11.    angle 30
  12.    resolution 160, 160
  13.    }
  14.  
  15. define white <1,1,1>
  16. define DarkSlateGray <0.184314, 0.309804, 0.309804>
  17. define red <1, 0, 0>
  18. define SkyBlue <0.196078, 0.6, 0.8>
  19.  
  20. // Set up background color & lights
  21. background SkyBlue
  22. light <10,10,-10>
  23.  
  24. // Define the color of the sphere
  25. define glossy_red
  26. texture {
  27.    surface {
  28.       ambient red, 0.2
  29.       diffuse red, 0.7
  30.       specular white, 0.4
  31.       }
  32.    }
  33.  
  34. define two_sphere
  35.    object { sphere <0,0,0>, 2 }
  36.  
  37. // Define a sinusoidal surface
  38. object {
  39.    function y - 0.25 * sin(18.85 * x * z + theta_offset)
  40.    glossy_red
  41.    bounds two_sphere
  42.    }
  43.  
  44.